perm filename REV[COL,LCS] blob sn#106225 filedate 1974-06-12 generic text, type T, neo UTF8
00100	ARRAY D1(801),D2(905),D3(1020),D4(1125),D5(128),D6(45),D7(23),D8(18); 
00200	VARIABLE /R;
00300	REVINIT←1;R←0;
00400	COMPILE;
00500	INSTRUMENT REV;
00600	REV2(R,123,.7,D5);
00700	REV2(U1,43,.7,D6);
00800	REV2(U2,13,.7,D7);
00900	REV1(U3,801,.827,D1);
01000	REV1(U3,901,.805,D2);
01100	REV1(U3,1011,.783,D3);
01200	REV1(U3,1123,.764,D4);
01300	R←0;
01400	OUTA←OUTA+U4+U5+U6+U7;
01600	END;
01700	FINISH;